home *** CD-ROM | disk | FTP | other *** search
/ Wayzata's Best of Shareware PC/Windows 1 / Wayzata's Best of Shareware for PC-Windows - Release 1 - Wayzata Technology (1993).iso / mac / WINDOWS / DATABASE / ADDBK / YWCARDS.WBT < prev   
Text File  |  1992-12-19  |  940b  |  39 lines
  1. ;; YWCards.wbt
  2. ;; Refreshes YourWay cardfiles
  3. ;; Written by Helen Feddema 12/05/92
  4. ;; Modified 12/19/92
  5.  
  6.  
  7. Debug (@OFF)
  8.  
  9.  
  10. If WinExist ("Microsoft Access") == @TRUE then Goto act1
  11. Run ("e:\access\msaccess.exe", "e:\access\addbook\addbook.mdb")
  12. Goto makedbs
  13.  
  14. :act1
  15. WinActivate("Microsoft Access")
  16.  
  17. :makedbs
  18. SendKey(`!{F4}!vmm!r!fx`)
  19.  
  20. ;Goto end
  21.  
  22. If WinExist ("YourWay - E:\YOURWAY3") == @TRUE then Goto act2
  23. Run ("e:\yourway3\yourway.exe", "")
  24. Goto import
  25.  
  26. :act2
  27. WinActivate("YourWay - E:\YOURWAY3")
  28.  
  29. :import
  30. SendKey(`{TAB}{TAB}!vd!fi{TAB}{TAB}{TAB}{TAB}{DOWN}{TAB}{TAB}`)
  31. SendKey(`{TAB}{TAB}badd.dbf{TAB}{TAB}badd.ydb!iy!a!x{ENTER}{ENTER}+{TAB}`)
  32. SendKey(`+{TAB}phadd.dbf{TAB}{TAB}phadd.ydb!i{ENTER}!a!x{ENTER}{ENTER}`)
  33. SendKey(`+{TAB}+{TAB}phwadd.dbf{TAB}{TAB}phwadd.ydb!i{ENTER}!a!x{ENTER}`)
  34. SendKey(`{ENTER}+{TAB}+{TAB}pwadd.dbf{TAB}{TAB}pwadd.ydb!i{ENTER}!a!x{ENTER}`)
  35. SendKey(`n!VT!{space}n`)
  36.  
  37. :end
  38.  
  39.